(* (FIXSW T))


(DEFINEQ
 (INIT
  (LAMBDA (N M NPATS IPATS) 
    ((LAMBDA (IPATS) 
       (PROG (P) 
	     (SETQ P IPATS)
	LOOP (COND ((NULL (CDR P)) (RETURN (RPLACD P IPATS))))
	     (SETQ P (CDR P))
	     (GO LOOP))
       ((LAMBDA (G0030 G0031 G0032 G0033) 
	  (PROG (N I NAME A) 
		(PROGN (SETQ N G0030)
		       (SETQ I G0031)
		       (SETQ NAME G0032)
		       (SETQ A G0033))
	   LOOP	(COND ((IEQP N 0) (RETURN A)))
		(SETQ A (CONS NAME A))
		(FOR I
		     FROM
		     I
		     TO
		     1
		     BY
		     -1
		     DO
		     (PUTPROP NAME (GENSYM) NIL)
		     FINALLY
		     (RETURN NIL))
		(PUTPROP
		 NAME
		 (QUOTE PATTERN)
		 ((LAMBDA (G0034 G0035 G0036) 
		    (PROG (I IPATS A) 
			  (PROGN (SETQ I G0034)
				 (SETQ IPATS G0035)
				 (SETQ A G0036))
		     LOOP (COND ((IEQP I 0) (RETURN A)))
			  (SETQ A (CONS (CAR IPATS) A))
			  ((LAMBDA (G0034 G0035) 
			     (PROGN (SETQ I G0034)
				    (SETQ IPATS G0035)))
			   (IDIFFERENCE I 1)
			   (CDR IPATS))
			  (GO LOOP)))
		  NPATS
		  IPATS
		  NIL))
		(FOR J
		     FROM
		     (IDIFFERENCE M I)
		     TO
		     1
		     BY
		     -1
		     DO
		     (PUTPROP NAME (GENSYM) NIL)
		     FINALLY
		     (RETURN NIL))
		((LAMBDA (G0030 G0031 G0032) 
		   (PROGN (SETQ N G0030) (SETQ I G0031) (SETQ NAME
							      G0032)))
		 (IDIFFERENCE N 1)
		 (COND ((IEQP I 0) M) (T (IDIFFERENCE I 1)))
		 (GENSYM))
		(GO LOOP)))
	N
	M
	(GENSYM)
	NIL))
     (SUBST NIL NIL IPATS)))))